﻿' LibWowArmory
' by Ronald M. Clifford (roncli@roncli.com)
'
' This source code is released under the GNU Library General Public License (LGPL) Version 2.1.

Imports Newtonsoft.Json
Imports System.Collections.Generic

Namespace roncliProductions.LibWowArmory.CalendarMonthWorldSchema

    Public Class calendarMonthWorld

        Private lngNow As Long
        Private intMonth As Integer
        Private eEvents As New List(Of [event])
        Private strCalendarType As String
        Private intYear As Integer
        Private lngTZ As Long

        <JsonProperty("now")> Public Property now() As Long
            Get
                Return lngNow
            End Get
            Set(ByVal value As Long)
                lngNow = value
            End Set
        End Property

        <JsonProperty("month")> Public Property month() As Integer
            Get
                Return intMonth
            End Get
            Set(ByVal value As Integer)
                intMonth = value
            End Set
        End Property

        <JsonProperty("events")> Public Property events() As List(Of [event])
            Get
                Return eEvents
            End Get
            Set(ByVal value As List(Of [event]))
                eEvents = value
            End Set
        End Property

        <JsonProperty("calendarType")> Public Property calendarType() As String
            Get
                Return strCalendarType
            End Get
            Set(ByVal value As String)
                strCalendarType = value
            End Set
        End Property

        <JsonProperty("year")> Public Property year() As Integer
            Get
                Return intYear
            End Get
            Set(ByVal value As Integer)
                intYear = value
            End Set
        End Property

        <JsonProperty("tz")> Public Property tz() As Long
            Get
                Return lngTZ
            End Get
            Set(ByVal value As Long)
                lngTZ = value
            End Set
        End Property

    End Class

End Namespace
